
  10 :RETURN ;CLEAR 
  20 BC=RND (32)×8;FC=BC+4+RND (32)×8
  40 FOR Z=1TO 4
  42 IF RND (2)=1PRINT "THE ",;GOSUB 2000+RND (26);PRINT " OF ",;GOSUB 1000+RND (25);PRINT ;PRINT "IS ",;GOTO 85
  45 IF RND (2)=1GOSUB 3000+RND (26);GOTO 60
  50 GOSUB 1000+RND (26)
  55 IF RND (2)=1PRINT " IS ",;GOTO 85
  60 PRINT " IS THE ",
  70 GOSUB 2000+RND (26)
  80 PRINT ;PRINT "OF ",
  85 IF RND (2)=1GOSUB 1000+RND (26);GOTO 95
  90 GOSUB 3000+RND (26)
  92 IF RND (5)=1PRINT " AND";GOTO 85
  95 PRINT ".
 100 NEXT Z
 110 FOR Z=1TO 5000;NEXT Z;GOTO 10
1001 PRINT "SANITY",;RETURN 
1002 PRINT "AGONY",;RETURN 
1003 PRINT "DISTRUST",;RETURN 
1004 PRINT "POLITICS",;RETURN 
1005 PRINT "GREED",;RETURN 
1006 PRINT "GLUTTONY",;RETURN 
1007 PRINT "HEALTH",;RETURN 
1008 PRINT "HYSTERIA",;RETURN 
1009 PRINT "BREVITY",;RETURN 
1010 PRINT "CHARITY",;RETURN 
1011 PRINT "SECURITY",;RETURN 
1012 PRINT "SCIENCE",;RETURN 
1013 PRINT "CELIBACY",;RETURN 
1014 PRINT "DECENCY",;RETURN 
1015 PRINT "ABUSE",;RETURN 
1016 PRINT "WEAKNESS",;RETURN 
1017 PRINT "BRAVERY",;RETURN 
1018 PRINT "GENIUS",;RETURN 
1019 PRINT "DEATH",;RETURN 
1020 PRINT "ALCOHOL",;RETURN 
1021 PRINT "VIOLENCE",;RETURN 
1022 PRINT "APATHY",;RETURN 
1023 PRINT "MONEY",;RETURN 
1024 PRINT "GARBAGE",;RETURN 
1025 PRINT "OBESITY",;RETURN 
1026 PRINT "NECESSITY",;RETURN 
2001 PRINT "BLIGHT",;RETURN 
2002 PRINT "HARLOT",;RETURN 
2003 PRINT "FRIEND",;RETURN 
2004 PRINT "MOTHER",;RETURN 
2005 PRINT "FATHER",;RETURN 
2006 PRINT "SISTER",;RETURN 
2007 PRINT "ENEMY",;RETURN 
2008 PRINT "QUAGMIRE",;RETURN 
2009 PRINT "BROTHER",;RETURN 
2010 PRINT "BANDIT",;RETURN 
2011 PRINT "HOUSE",;RETURN 
2012 PRINT "KIDNEY",;RETURN 
2013 PRINT "HARPY",;RETURN 
2014 PRINT "LAXITIVE",;RETURN 
2015 PRINT "REWARD",;RETURN 
2016 PRINT "GENISIS",;RETURN 
2017 PRINT "HEART",;RETURN 
2018 PRINT "CURATER",;RETURN 
2019 PRINT "EUNUCH",;RETURN 
2020 PRINT "RESULT",;RETURN 
2021 PRINT "ANATHEMA",;RETURN 
2022 PRINT "FOLLICLE",;RETURN 
2023 PRINT "LIVER",;RETURN 
2024 PRINT "APEX",;RETURN 
2025 PRINT "BLADDER",;RETURN 
2026 PRINT "ROOT",;RETURN 
3001 PRINT "LOVE",;RETURN 
3002 PRINT "ARDOR",;RETURN 
3003 PRINT "BEAUTY",;RETURN 
3004 PRINT "HATE",;RETURN 
3005 PRINT "FILTH",;RETURN 
3006 PRINT "EVIL",;RETURN 
3007 PRINT "EXCESS",;RETURN 
3008 PRINT "FANTASY",;RETURN 
3009 PRINT "RACISM",;RETURN 
3010 PRINT "LAUGHTER",;RETURN 
3011 PRINT "SADISM",;RETURN 
3012 PRINT "LUST",;RETURN 
3013 PRINT "SEX",;RETURN 
3014 PRINT "DECEIT",;RETURN 
3015 PRINT "LOYALTY",;RETURN 
3016 PRINT "SUICIDE",;RETURN 
3017 PRINT "SUCCESS",;RETURN 
3018 PRINT "IDIOCY",;RETURN 
3019 PRINT "PROGRESS",;RETURN 
3020 PRINT "FAILURE",;RETURN 
3021 PRINT "NAIVETE",;RETURN 
3022 PRINT "APOPLEXY",;RETURN 
3023 PRINT "LEPROSY",;RETURN 
3024 PRINT "RELEASE",;RETURN 
3025 PRINT "AVARICE",;RETURN 
3026 PRINT "INVENTION",;RETURN 
>RUN 
